#!/usr/bin/perl -w
use strict;


print "Input: ";
my $a = <STDIN>;
#print $a;
$a = 'y';
print "sdf" if($a eq "y");
